home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.20 / rrequest / rrequesttest2.p < prev    next >
Text File  |  1995-04-22  |  1KB  |  38 lines
  1. PROGRAM rrequest2;
  2.  
  3. FROM Rogertools USES rrequest;
  4.  
  5. { ********************** Hauptprogramm zum testen ********************* }
  6.  
  7. VAR datei,pfad:string;
  8.     win:^window;
  9.     it1,it2,it3,it4:Intuitext;
  10.     message:^intuimessage;
  11.  
  12. BEGIN
  13.  win:=Open_Window(0,0,500,50,$0201,_CLOSEWINDOW+GADGETUP+GADGETDOWN,
  14.         ACTIVATE+WINDOWCLOSE,'RRequesttest © 11.10.93 for Purity',
  15.         NIL,0,0,300,80);
  16.  
  17.  datei:='';
  18.  pfad:='sys:';
  19.  
  20.  { Bitte beachten: die Procedure searchlibs braucht nicht mehr
  21.    aufgerufen zu werden. Das geschieht in der Unit }
  22.  
  23.  IF  (foundarp OR foundasl) THEN rrequest('RRequesttest ',datei,pfad)
  24.  
  25.  ELSE  norequestermessage('Kein Abspeichern und Laden möglich !');
  26.  
  27.  it1:=Intuitext(1,0,0,5,15,NIL,'Dateiname war:',^it2);
  28.  it2:=Intuitext(1,0,0,125,15,NIL,Datei,^it3);
  29.  it3:=Intuitext(1,0,0,5,30,NIL,'Pfadname war:',^it4);
  30.  it4:=Intuitext(1,0,0,125,30,NIL,Pfad,NIL);
  31.  PRINTITEXT(win^.rport,^it1,0,0);
  32.  message:=Wait_Port(win^.UserPort);
  33.  message:=Get_Msg(win^.UserPort);
  34.  Reply_msg(message);
  35.  close_window(win);
  36. END.
  37.  
  38.